home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue25 / compress / COMPRESS.ZIP / COMPMAIN.DFM / COMPMAIN.txt next >
Encoding:
Text File  |  1997-07-09  |  12.3 KB  |  566 lines
  1. object Form1: TForm1
  2.   Left = 378
  3.   Top = 124
  4.   Width = 513
  5.   Height = 539
  6.   Caption = 'TCompress 3.5 Demonstration'
  7.   Color = clGreen
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Icon.Data = {<image000.ico>}
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnClick = FormClick
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   PixelsPerInch = 120
  19.   TextHeight = 16
  20.   object Shape1: TShape
  21.     Left = 1
  22.     Top = 322
  23.     Width = 502
  24.     Height = 1
  25.   end
  26.   object DBText1: TDBText
  27.     Left = 184
  28.     Top = 327
  29.     Width = 138
  30.     Height = 17
  31.     Alignment = taCenter
  32.     DataField = 'Common_Name'
  33.     DataSource = DataSource1
  34.     Font.Color = clBlack
  35.     Font.Height = -13
  36.     Font.Name = 'Arial'
  37.     Font.Style = [fsBold]
  38.     ParentFont = False
  39.   end
  40.   object Image1: TImage
  41.     Left = 171
  42.     Top = 210
  43.     Width = 165
  44.     Height = 105
  45.     DragMode = dmAutomatic
  46.     Stretch = True
  47.     OnDragDrop = CDBImage1DragDrop
  48.     OnDragOver = CDBImage1DragOver
  49.   end
  50.   object Memo1: TMemo
  51.     Left = 177
  52.     Top = 245
  53.     Width = 154
  54.     Height = 32
  55.     Cursor = crArrow
  56.     TabStop = False
  57.     Alignment = taCenter
  58.     BorderStyle = bsNone
  59.     Color = clBtnFace
  60.     DragMode = dmAutomatic
  61.     Font.Color = clBlack
  62.     Font.Height = -11
  63.     Font.Name = 'Arial'
  64.     Font.Style = []
  65.     Lines.Strings = (
  66.       'Drag images here to display'
  67.       'them in a simple TImage')
  68.     ParentFont = False
  69.     ReadOnly = True
  70.     TabOrder = 9
  71.     OnDragDrop = CDBImage1DragDrop
  72.     OnDragOver = CDBImage1DragOver
  73.   end
  74.   object Memo2: TMemo
  75.     Left = 74
  76.     Top = 351
  77.     Width = 354
  78.     Height = 96
  79.     Alignment = taCenter
  80.     Font.Color = clBlack
  81.     Font.Height = -13
  82.     Font.Name = 'Arial'
  83.     Font.Style = []
  84.     Lines.Strings = (
  85.       'BLOB Database compression demonstration'
  86.       'currently disabled...'
  87.       ''
  88.       'Set the DBDEMOS alias to point to the location of'
  89.       'the BIOLIFE.DB table (usually \DELPHI\DEMOS\DATA).')
  90.     ParentFont = False
  91.     TabOrder = 2
  92.     Visible = False
  93.   end
  94.   object DBNavigator1: TDBNavigator
  95.     Left = 207
  96.     Top = 480
  97.     Width = 88
  98.     Height = 21
  99.     DataSource = DataSource1
  100.     VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  101.     TabOrder = 0
  102.   end
  103.   object CMethod: TRadioGroup
  104.     Left = 202
  105.     Top = 0
  106.     Width = 102
  107.     Height = 89
  108.     Hint = 'Select the desired compression method'
  109.     Caption = 'Compression'
  110.     Color = clBtnFace
  111.     Font.Color = clBlack
  112.     Font.Height = -13
  113.     Font.Name = 'Arial'
  114.     Font.Style = []
  115.     ItemIndex = 3
  116.     Items.Strings = (
  117.       'None'
  118.       'RLE'
  119.       'LZH1'
  120.       'LZH5')
  121.     ParentColor = False
  122.     ParentFont = False
  123.     ParentShowHint = False
  124.     ShowHint = True
  125.     TabOrder = 1
  126.     OnClick = CMethodClick
  127.   end
  128.   object GroupBox1: TGroupBox
  129.     Left = 5
  130.     Top = 0
  131.     Width = 162
  132.     Height = 263
  133.     Hint = 'Drag files to and from the file list'
  134.     Caption = 'Disk Files'
  135.     Color = clBtnFace
  136.     Font.Color = clBlack
  137.     Font.Height = -13
  138.     Font.Name = 'Arial'
  139.     Font.Style = []
  140.     ParentColor = False
  141.     ParentFont = False
  142.     ParentShowHint = False
  143.     ShowHint = True
  144.     TabOrder = 3
  145.     OnClick = GroupBox1Click
  146.     OnDragDrop = DLDragDrop
  147.     OnDragOver = DLDragOver
  148.     object FL: TFileListBox
  149.       Left = 3
  150.       Top = 112
  151.       Width = 155
  152.       Height = 113
  153.       DragMode = dmAutomatic
  154.       ItemHeight = 16
  155.       MultiSelect = True
  156.       ShowGlyphs = True
  157.       TabOrder = 0
  158.       OnClick = FLClick
  159.       OnDragDrop = DLDragDrop
  160.       OnDragOver = DLDragOver
  161.     end
  162.     object DL: TDirectoryListBox
  163.       Left = 3
  164.       Top = 43
  165.       Width = 155
  166.       Height = 67
  167.       FileList = FL
  168.       ItemHeight = 16
  169.       TabOrder = 1
  170.       OnDragDrop = DLDragDrop
  171.       OnDragOver = DLDragOver
  172.     end
  173.     object DCB: TDriveComboBox
  174.       Left = 3
  175.       Top = 19
  176.       Width = 155
  177.       Height = 22
  178.       DirList = DL
  179.       TabOrder = 2
  180.       OnDragDrop = DLDragDrop
  181.       OnDragOver = DLDragOver
  182.     end
  183.     object Memo3: TMemo
  184.       Left = 3
  185.       Top = 227
  186.       Width = 155
  187.       Height = 33
  188.       Cursor = crArrow
  189.       TabStop = False
  190.       Alignment = taCenter
  191.       BorderStyle = bsNone
  192.       Color = clBtnFace
  193.       Font.Color = clBlack
  194.       Font.Height = -11
  195.       Font.Name = 'Arial'
  196.       Font.Style = []
  197.       Lines.Strings = (
  198.         'Drag these files to the archive,'
  199.         'images or memo, & vice versa')
  200.       ParentFont = False
  201.       ReadOnly = True
  202.       TabOrder = 3
  203.     end
  204.   end
  205.   object ArchiveGroup: TGroupBox
  206.     Left = 340
  207.     Top = 0
  208.     Width = 162
  209.     Height = 263
  210.     Hint = 'Drag the entire archive too if you wish...'
  211.     Caption = 'Archived Files'
  212.     Color = clBtnFace
  213.     DragMode = dmAutomatic
  214.     Font.Color = clBlack
  215.     Font.Height = -13
  216.     Font.Name = 'Arial'
  217.     Font.Style = []
  218.     ParentColor = False
  219.     ParentFont = False
  220.     ParentShowHint = False
  221.     ShowHint = True
  222.     TabOrder = 4
  223.     OnDragDrop = archivefileDragDrop
  224.     OnDragOver = archivefileDragOver
  225.     object ArchiveLabel: TLabel
  226.       Left = 57
  227.       Top = 22
  228.       Width = 46
  229.       Height = 16
  230.       Caption = 'Archive:'
  231.       DragMode = dmAutomatic
  232.       Font.Color = clBlack
  233.       Font.Height = -13
  234.       Font.Name = 'Arial'
  235.       Font.Style = []
  236.       ParentFont = False
  237.     end
  238.     object Label2: TLabel
  239.       Left = 54
  240.       Top = 70
  241.       Width = 55
  242.       Height = 16
  243.       Caption = 'Contains:'
  244.       Font.Color = clBlack
  245.       Font.Height = -13
  246.       Font.Name = 'Arial'
  247.       Font.Style = []
  248.       ParentFont = False
  249.     end
  250.     object archivefile: TEdit
  251.       Left = 4
  252.       Top = 40
  253.       Width = 155
  254.       Height = 24
  255.       Hint = 'Edit archive name as required'
  256.       ParentShowHint = False
  257.       ShowHint = True
  258.       TabOrder = 0
  259.       Text = 'C:\COMPDEMO.ARC'
  260.       OnChange = archivefileChange
  261.       OnDragDrop = archivefileDragDrop
  262.       OnDragOver = archivefileDragOver
  263.     end
  264.     object ListBox1: TListBox
  265.       Left = 4
  266.       Top = 88
  267.       Width = 155
  268.       Height = 137
  269.       Hint = 'Click filename for file compression information'
  270.       DragMode = dmAutomatic
  271.       ItemHeight = 16
  272.       MultiSelect = True
  273.       ParentShowHint = False
  274.       ShowHint = True
  275.       TabOrder = 1
  276.       OnClick = ListBox1Click
  277.       OnDragDrop = archivefileDragDrop
  278.       OnDragOver = archivefileDragOver
  279.     end
  280.     object Memo4: TMemo
  281.       Left = 4
  282.       Top = 227
  283.       Width = 154
  284.       Height = 33
  285.       Cursor = crArrow
  286.       TabStop = False
  287.       Alignment = taCenter
  288.       BorderStyle = bsNone
  289.       Color = clBtnFace
  290.       Font.Color = clBlack
  291.       Font.Height = -11
  292.       Font.Name = 'Arial'
  293.       Font.Style = []
  294.       Lines.Strings = (
  295.         'Drag these files to the file list,'
  296.         'trashcan, images or memo')
  297.       ParentFont = False
  298.       ReadOnly = True
  299.       TabOrder = 2
  300.     end
  301.   end
  302.   object Fishname: TDBEdit
  303.     Left = 56
  304.     Top = 326
  305.     Width = 121
  306.     Height = 20
  307.     TabStop = False
  308.     AutoSize = False
  309.     BorderStyle = bsNone
  310.     Color = clBtnFace
  311.     Ctl3D = False
  312.     DataField = 'Common_Name'
  313.     DataSource = DataSource1
  314.     Font.Color = clBlack
  315.     Font.Height = -13
  316.     Font.Name = 'Arial'
  317.     Font.Style = [fsBold]
  318.     MaxLength = 0
  319.     ParentCtl3D = False
  320.     ParentFont = False
  321.     TabOrder = 5
  322.     Visible = False
  323.   end
  324.   object Memo5: TMemo
  325.     Left = 9
  326.     Top = 480
  327.     Width = 186
  328.     Height = 14
  329.     Cursor = crArrow
  330.     TabStop = False
  331.     Alignment = taCenter
  332.     BorderStyle = bsNone
  333.     Color = clBtnFace
  334.     Font.Color = clBlack
  335.     Font.Height = -11
  336.     Font.Name = 'Arial'
  337.     Font.Style = []
  338.     Lines.Strings = (
  339.       'Drag this to the archive or file list')
  340.     ParentFont = False
  341.     ReadOnly = True
  342.     TabOrder = 6
  343.   end
  344.   object Memo6: TMemo
  345.     Left = 312
  346.     Top = 480
  347.     Width = 186
  348.     Height = 14
  349.     Cursor = crArrow
  350.     TabStop = False
  351.     Alignment = taCenter
  352.     BorderStyle = bsNone
  353.     Color = clBtnFace
  354.     Font.Color = clBlack
  355.     Font.Height = -11
  356.     Font.Name = 'Arial'
  357.     Font.Style = []
  358.     Lines.Strings = (
  359.       'Drag to the archive, file list or image')
  360.     ParentFont = False
  361.     ReadOnly = True
  362.     TabOrder = 7
  363.   end
  364.   object Button1: TButton
  365.     Left = 453
  366.     Top = 286
  367.     Width = 50
  368.     Height = 29
  369.     Caption = 'About'
  370.     TabOrder = 11
  371.     OnClick = Button1Click
  372.   end
  373.   object Panel1: TPanel
  374.     Left = 202
  375.     Top = 85
  376.     Width = 102
  377.     Height = 121
  378.     BevelInner = bvRaised
  379.     BevelOuter = bvLowered
  380.     TabOrder = 8
  381.     OnClick = Panel1Click
  382.     object Bevel1: TBevel
  383.       Left = 37
  384.       Top = 83
  385.       Width = 28
  386.       Height = 31
  387.       ParentShowHint = False
  388.       ShowHint = False
  389.     end
  390.     object Time: TLabel
  391.       Left = 16
  392.       Top = 58
  393.       Width = 73
  394.       Height = 16
  395.       Alignment = taCenter
  396.       AutoSize = False
  397.       Color = clBtnFace
  398.       Font.Color = clBlack
  399.       Font.Height = -13
  400.       Font.Name = 'Arial'
  401.       Font.Style = []
  402.       ParentColor = False
  403.       ParentFont = False
  404.     end
  405.     object Percentage: TLabel
  406.       Left = 6
  407.       Top = 22
  408.       Width = 89
  409.       Height = 16
  410.       Alignment = taCenter
  411.       AutoSize = False
  412.       Color = clBtnFace
  413.       Font.Color = clBlack
  414.       Font.Height = -13
  415.       Font.Name = 'Arial'
  416.       Font.Style = []
  417.       ParentColor = False
  418.       ParentFont = False
  419.     end
  420.     object TimeLabel: TLabel
  421.       Left = 18
  422.       Top = 43
  423.       Width = 67
  424.       Height = 14
  425.       Alignment = taCenter
  426.       AutoSize = False
  427.       Caption = 'Time'
  428.       Font.Color = clBlack
  429.       Font.Height = -13
  430.       Font.Name = 'Arial'
  431.       Font.Style = []
  432.       ParentFont = False
  433.     end
  434.     object Label7: TLabel
  435.       Left = 6
  436.       Top = 5
  437.       Width = 89
  438.       Height = 16
  439.       Caption = '% Compressed'
  440.       Font.Color = clBlack
  441.       Font.Height = -13
  442.       Font.Name = 'Arial'
  443.       Font.Style = []
  444.       ParentFont = False
  445.     end
  446.     object Trashcan: TImage
  447.       Left = 38
  448.       Top = 84
  449.       Width = 26
  450.       Height = 29
  451.       Hint = 'Drag files here to delete them'
  452.       DragMode = dmAutomatic
  453.       ParentShowHint = False
  454.       Picture.Data = {<image001.bmp>}
  455.       ShowHint = True
  456.       Stretch = True
  457.       OnDragDrop = TrashcanDragDrop
  458.       OnDragOver = TrashcanDragOver
  459.     end
  460.   end
  461.   object Button2: TButton
  462.     Left = 340
  463.     Top = 286
  464.     Width = 50
  465.     Height = 29
  466.     Caption = 'Help'
  467.     TabOrder = 10
  468.     OnClick = Button2Click
  469.   end
  470.   object CDBImage1: TCDBImage
  471.     Left = 256
  472.     Top = 354
  473.     Width = 241
  474.     Height = 113
  475.     CompressionMethod = coNone
  476.     CompressSource = Compress1
  477.     DataField = 'Graphic'
  478.     DataSource = DataSource1
  479.     DragMode = dmAutomatic
  480.     TabOrder = 12
  481.     OnDragDrop = CDBImage1DragDrop
  482.     OnDragOver = CDBImage1DragOver
  483.   end
  484.   object CDBMemo1: TCDBMemo
  485.     Left = 8
  486.     Top = 354
  487.     Width = 241
  488.     Height = 113
  489.     CompressionMethod = coNone
  490.     CompressSource = Compress1
  491.     DataField = 'Notes'
  492.     DataSource = DataSource1
  493.     DragMode = dmAutomatic
  494.     TabOrder = 13
  495.     OnDragDrop = CDBMemo1DragDrop
  496.     OnDragOver = CDBMemo1DragOver
  497.   end
  498.   object Button3: TButton
  499.     Left = 397
  500.     Top = 286
  501.     Width = 50
  502.     Height = 29
  503.     Hint = 'Registration information'
  504.     Caption = 'Reg'#39'n'
  505.     TabOrder = 14
  506.     OnClick = Button3Click
  507.   end
  508.   object Table1: TTable
  509.     AfterPost = Table1AfterPost
  510.     DatabaseName = 'DBDEMOS'
  511.     TableName = 'BIOLIFE.DB'
  512.     Left = 51
  513.     Top = 284
  514.     object Table1SpeciesNo: TFloatField
  515.       FieldName = 'Species No'
  516.     end
  517.     object Table1Category: TStringField
  518.       FieldName = 'Category'
  519.       Size = 15
  520.     end
  521.     object Table1Common_Name: TStringField
  522.       FieldName = 'Common_Name'
  523.       Size = 30
  524.     end
  525.     object Table1SpeciesName: TStringField
  526.       FieldName = 'Species Name'
  527.       Size = 40
  528.     end
  529.     object Table1Lengthcm: TFloatField
  530.       FieldName = 'Length (cm)'
  531.     end
  532.     object Table1Length_In: TFloatField
  533.       FieldName = 'Length_In'
  534.     end
  535.     object CDBImage1Graphic: TCGraphicField
  536.       FieldName = 'Graphic'
  537.       BlobType = ftGraphic
  538.       CompressSource = Compress1
  539.       CompressionMethod = coNone
  540.     end
  541.     object CDBMemo1Notes: TCMemoField
  542.       FieldName = 'Notes'
  543.       BlobType = ftMemo
  544.       Size = 50
  545.       CompressSource = Compress1
  546.       CompressionMethod = coNone
  547.     end
  548.   end
  549.   object DataSource1: TDataSource
  550.     DataSet = Table1
  551.     Left = 83
  552.     Top = 284
  553.   end
  554.   object Compress1: TCompress
  555.     RegNumber = 0
  556.     OnCheckFile = Compress1CheckFile
  557.     OnShowProgress = Compress1ShowProgress
  558.     MakeDirectories = False
  559.     ExceptionOnFileError = False
  560.     Key = 0
  561.     CheckSpaceBeforeExpand = False
  562.     Left = 20
  563.     Top = 283
  564.   end
  565. end
  566.